;; Read and print in lisp.

;; print
(progn (print "this")
       (print "is")
       (print "a")
       (print "game"))

;; prin1
(progn (prin1 "this")
       (prin1 "is")
       (prin1 "a")
       (prin1 "game"))

(defun say-hello ()
    (print "Please enter your name")
    (let ((name (read)))
      (print "Nice to meet you, ")
      (print name)))

(defun say-hello-2 ()
  (princ "Please enter your name:")
  (let ((name (read)))
    (princ "Nice to meet you, ")
    (princ name)))


      

